open(BUFF,"k");
$AA=0;
$AB=0;
$BB=0;
$NA=0;
while(<BUFF>)
{
	chomp($_);
	@array = split(" ",$_);
	for($i=5;$i<@array;$i++)
        {
	
             $d1 = $array[$i++];
             $d2 = $array[$i++];
             $d3 = $array[$i];
             if($d1 >0.5)
             {
		$AA++;
             }
             elsif($d2 > 0.5)
             {
		$AB++;
             }
             elsif($d3 > 0.5)
             {
		$BB++;
             }
             else
             {
		$NA++;
             }
	}
	print $array[3]."\t".$array[4]."\t".$AA."\t".$AB."\t".$BB."\t$NA\n";
}
